home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Ver Disp 12.xpl < prev    next >
Text File  |  2001-04-15  |  2KB  |  65 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="5"
  4. "UIPATH"="Information\Core"
  5. "NAME"="Windows Update OEM Info"
  6. "OSVERSION"="0001011"
  7. "VERSION"="1.00"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="ACPI OEM"
  10. "TEXT 2"="ACPI Product"
  11. "TEXT 3"="OEM Model Info"
  12. "TEXT 4"="Wbem Product"
  13. "TEXT 5"="OEM Support URL"
  14. "DESCRIPTION 1"="This plug-in displays some of the OEM Information related to Windows Update."
  15. "DESCRIPTION 2"="You can't change anything!  Windows gets most of this information from your BIOS and hardware. It may not display anything, or every box above may have information, it just depends on your system."
  16. "AUTHOR"="Xteq Systems (CptSiskoX)"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20.  
  21.  
  22. sP="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\OemInfo\"
  23. sV1="AcpiOem"
  24. sV2="AcpiProduct"
  25. sV3="WbemOem"
  26. sV4="WbemProduct"
  27. sV5="OemSupportURL"
  28.  
  29. Sub Plugin_Initialize 
  30.  if GetWinVer=4 or GetWinVer=6 then
  31.     s=RegReadValue(sP & sV1)
  32.     Call SetUIElement(1,s)
  33.  
  34.     s=RegReadValue(sP & sV2)
  35.     Call SetUIElement(2,s)
  36.  
  37.     s=RegReadValue(sP & sV3)
  38.     Call SetUIElement(3,s)
  39.  
  40.     s=RegReadValue(sP & sV4)
  41.     Call SetUIElement(4,s)
  42.  
  43.     s=RegReadValue(sP & sV5)
  44.     Call SetUIElement(5,s)
  45.  else
  46.     Call SetUIElement(1,"N/A")
  47.     Call SetUIElement(2,"N/A")
  48.     Call SetUIElement(3,"N/A")
  49.     Call SetUIElement(4,"N/A")
  50.     Call SetUIElement(5,"N/A")
  51.  end if
  52.  
  53.  
  54.  Call Disable 'user can't change anything!
  55. End Sub
  56.  
  57. Sub Plugin_CheckData(ElementIndex)
  58. End Sub
  59.  
  60. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  61. End Sub
  62.  
  63. Sub Plugin_Terminate 
  64. End Sub
  65.